home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / SCROLL < prev    next >
Text File  |  1997-04-05  |  289b  |  5 lines
  1. SCROLL: procedure;parse arg line,text;sp=2;getuser27;ll=result-1
  2.   do a=1 to length(text)+ll;ch=substr(text,a,1);if index("¹²³",ch)>0 then sp=translate(ch,"246","¹²³")
  3.   else sendstring ""line";0HP"line";"ll"H"ch;call delay(sp);maygetchar;if result~="NOCHAR" then leave;end
  4.  return
  5.